home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.08 Aug 89 / POOPDraw Code ƒ / APPL New.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-06-12  |  1.7 KB  |  60 lines  |  [TEXT/KAHL]
  1. /********************************************************************/
  2. /*                        SOURCE CODE FILE                            */
  3. /********************************************************************/
  4. /*
  5. *   >>>    File name:        New.c    
  6. *
  7. *      >>>    Purpose:        Methods for Creating Objects
  8. *     >>>    Project:        PoopDraw    Version 1        
  9. *     >>>    Date:            2/20/89
  10. *      >>>    By:                Adam Treister
  11. *
  12. */
  13. /********************************************************************/
  14. /*    For Your Information            1802 Hillside Rd. SB CA 93101    */
  15. /********************************************************************/
  16.  
  17. #include "PoopDrawInc"
  18.  
  19.  
  20.     
  21. /***** Public Functions *********************************************/
  22.  
  23. ObjectHandle NewRectObj(LPtr InParmP);
  24. ObjectHandle NewOvalObj(LPtr InParmP);
  25. ObjectHandle NewLineObj(LPtr InParmP);
  26. ObjectHandle NewTextObj(LPtr InParmP);
  27. ObjectHandle NewGroupObj(LPtr InParmP);
  28. ObjectHandle NewDrawPanel(LPtr InParmP);
  29. WindowPtr NewDrawWindow(void);
  30. ObjectHandle NewListObject(void);
  31. ObjectHandle NewGroup(void);
  32.  
  33. /********************************************************************/
  34.  
  35.  
  36. void New(Message,InParmP,OutParmP)
  37. int Message;
  38. LPtr InParmP;
  39. LPtr OutParmP;
  40.  
  41. {
  42.     switch(Message)
  43.     {
  44.     
  45.         case DRAWWIND:    *OutParmP = (long) NewDrawWindow();            break;
  46.         case DRAWPANEL:    *OutParmP = (long) NewDrawPanel(InParmP);    break;
  47.          case RECT:        *OutParmP = (long) NewRectObj(InParmP);        break;
  48.         case OVAL:        *OutParmP = (long) NewOvalObj(InParmP);        break;
  49.         case LINE:        *OutParmP = (long) NewLineObj(InParmP);        break;
  50.         case TEXT:        *OutParmP = (long) NewTextObj(InParmP);        break;
  51.         case LIST:        *OutParmP = (long) NewListObject();            break;
  52.          case GROUP:        *OutParmP = (long) NewGroup();                break;
  53.  
  54.  
  55.         default:    Oops("\pI can't create what I don't know",Message,TRUE);
  56.                     *OutParmP = NULL;
  57.     }
  58. }    
  59.  
  60.